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EDTSLFILL = FILL Line=-mode command 16-50 $ep-1984 0 VAX-11 Bliss-32 V4.0-7 Pa 1 
me eae ri ee eS ed od A 
RUE SUDHA = tena conn tact com 
ne-moge comma 
IDENT = 'v04-000" File: LFILLBLI Edit: $1$1006 
s 


BEGIN 
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Flag that the screen nes change .. $ Srvul- -1982 
Put edt$$tst_eob “. i. ine. STS 933: 

Remove EDT$$6_SCR not Romy " ast screen logic. JBS 09-Oct-1982 
Remove EDT$S$RNG “BoseRst. STS 11-Oct-198 
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; 

: ; 1 

3 8 Bp NS 1 ie ® 
3 4 D009 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
s 7 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1) pot) ! i ALL RIGHTS RESERVED. ® 
3 00 ' * 
3 ig 0018 1 !e THIS hee IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s 0014 1 !* ONLY IN ACCORDANCE WITH — TER F SUCH LICENSE AND WITH THE * 
. 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 1$ 1! oS te THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY % 
Pay 017 1 !8 - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Hs Bats : pe TRANSFERRED. « 
3 'e + 
3 0 0020 1 !«# He} ote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
Pt 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ 09 ; ! is CORPORATION. ‘ 
; 4 4 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: é 88 i : rs SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
4 i 

: 8 0098 : | seseduendanenesbneninecuebesnebbinndiabebehienmetdahemeemabeaannnebennnda 
3 9 1! 

; 0 080 1 

3 1 031 1 !4¢ : 

: § it T4 : FACILITY: EDT == The DEC Standard Editor 

; 0034 1: ABSTRACT: 

3 5 0035 1! 

3 $ Boa6 : This module executes the Line mode FILL command. 

; 3 itd : ENVIRONMENT: Runs at any access mode - AST reentrant 

: re 0940 ! : AUTHOR: Bcb Kushlis, CREATION DATE: February 3, 1978 

; 4g 0042 1 | MODIFIED BY: 

3; § 045 1! 

; 6446 044 1! 1-001 - Original. DJS 30-JAN-81. This module was created b Y 

wa. 045 1! extracti ng the routine EDTS$FIL LL_CMD from the module EXEC.BLI. 

; 6 Boeg ! 1-002 - Regularize headers. JBS 19-Mar _ 

; 1 i 

; § 1! 

: 01! 

; 11: 

; 21 
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; ¢ é } 3SBTTL ‘Declarations’ 

; 5 : ] | TABLE OF CONTENTS: 

; — 

; 53 038 | REQUIRE ‘EDTSRC:TRAROUNAM’ ; 
: (61 98 1 FORWARD ROUTINE 

; 6¢ 38 } EDTSSFILL_CMD : NOVALUE; ' Process the FILL command 
3 64 2 1 oy 

; 65 1 ' INCLUDE FILES: 

=z Ha 

; 68 5 3 REQUIRE ‘EDTSRC:EDTREQ’: 
; % 641 1! 

; 71 1 ! MACROS: 

eS. 1: 

tS. 44 1: NONE 

r 74 0645 1! 

; oe goee : EQUATED SYMBOLS: 
EB Uae howe 

: 79 0630 1 | OWN STORAGE: 

; 680 651 1: 

; 81 0652 1: NONE 

: 8 0688 1 i 

; 8 54 1 ' EXTERNAL REFERENCES: 

; «84 0655 1! 

3 85 0656 1! In the routine 


EDISLAILL —EDTELEILL = FILL Ltnermode command, 1B Ben 1984 00:49:50 vated Bt 


ZSBTTL ‘EDTSSFILL_CMD = FILL Line-mode command’ 
GLOBAL ROUTINE EDTSSFILL_CMD ! FILL Line-mode command 
: NOVALUE = 


Bliss-32 v4.0- 
SMA 


+ 
FUNCTIONAL DESCRIPTION: 


Command processing for the FILL command. If the range is null, 
then assume SELECT. Make sure the range is contiguous. Count 
the number of Lines, then call the FILL routine. 


4 FORMAL PARAMETERS: 
7) NONE 
ors 
7 IMPLICIT INPUTS: 
0674 
0675 EDTSSA_ ty CURCMD 
3078 EDTSS$A_WK_CN 
067 
gore IMPLICIT OUTPUTS: 
067 
80 NONE 
681 
ret ROUTINE VALUE: 
06 


NONE 
SIDE EFFECTS: 
NONE 


wikia ts fh 


erste} NG REPOS, 
ED brsstst _RONCNTGRNG, 
EDTS$NXT~LNRNG, 
EDTSS$RD_ CURLN: 

EXTERNAL 
EDT$$G_RNG_ ERST 
EDT$$A_CUR—BU «REF TBCB_BLOCK, 
EDT $7-RNGTSAVPOS © POS BLOCK 
EDT$$2—RNG ORIGPOS : POS BLOCK, 
EDTSSA-wK_CN : REF LIN_BCOCK, 
EDT$$2~E08_LN 
EDTS$A~EXE-~CURCMD : REF NODE_BLOCK; ! Pointer to the current command. 


AL 
RANGE : REF NODE_BLOCK, 
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BEGIN 
NLINES; 


SSS SSSR NSS VSN SS CMe nso Sher Rho ae Oe RR oe 


Be Se Se Se ee Be Se Be Se Se Ge Ge Ge Ge Se Ge Se Se Ge Se Fe Se Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Se Se Se Se Ge Se Ge Se Se Se Se ee Se SH Se Se Be Se ee Se Sees 


ee ee ae ee | |, _______..__..__  e  S_ S ) 


74 
TER: CEDT.SRCILFILL.BLI;1 


AM ss-32 V Page 


VAX-11 reg 4 
SKSVMSMASTER: cto Osae LFILL.BLI;1 (3) 


us 


$F tt cmp et ict L mraede commend 1228687} 3b 99: 33: 32 Mt 


] 
I 
RANGE = .EDTSSA_EXE_CURCMD CRANGE1); 
1 


_ 
= 


IF (.RANGE CRAN_TYPE] EQL RAN_NULL) THEN RANGE CRAN_TYPE] = RAN_SELECT; 
IF EDTSSTST_NONCNTGRNG (.EDTSSA_EXE_CURCMD CRANGE1]) THEN RETURN; 
EDT$$G_RNG_FRSTLN = 
EDTSSCPY_MEM( POS Sut EDTSSA_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
IF Ire EDTSSRNG_REPOS~(.EDTS$A_EXE_CURCAD CRANGE1]) 
BEGIN 
NLINES = 0; 
WHILE (EDTSSNXT LNRNG | (0) AND (.EDTSSA_WK_LN NEQA EDT$$Z_E0B_LN)) DO 
NLINES = .NCINES + 1; 
EDTSSCPY MEM(POS_SIZE, EDTS$Z_RNG_SAVPOS, .EDTS$A_CUR_BUF); 
EDT$$RD_CURLN(); 
EDISSFICL. TXT (.NLINES); 
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END; ! of routine EDTSSFILL_CMD 


-TITLE EDTSLFILL EDTSLFILL - FILL Line-mode command 
-IDENT \vV04-000\ 

-EXTRN EDTSSRNG_REPOS, EDTSSFILL_TXT 

-EXTRN EDTS$TST_NO NG 

-EXTRN EDTSSNXT-LNRNG, EDTSSRD_CURLN 

-EXTRN EDT$$G_RAG_ 

-EXTRN EDTSSA_CUR_BUF, EDTS$Z_RNG_SAVPOS 

TEXTRN EDT$$Z_~RNG_ORIGPOS 

-EXTRN EDTSSA_WK_CN, EDT$$Z_E0B_LN 

-EXTRN EDTSSA_EXE_CURCMD 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 


O1FC 00000 -ENTRY EDTSSFILL_CMD Save R2,R3.R4.R5.R6,.R7.RB =; 0659 
52 900000006 00 9€ 00002 MOVAB EDTSSA_EXE_CURCMD, R8 ; 
57 000000006 00 9€ 00009 MOVAB EDTSS$A~CUR “BUF * : 
51 68 DO 0001 MOVL EDIS$A_ EXE. CURCMD, R1 : 0714 
50 04 Ail 00 0001 MOVL 4(R1), RANGE 3 
01 AO 9 901 TSTB T(RANGE)” : 0716 
04 1 1A BNEQ  '1$ ; 
01 AO C 90 0001C¢ MOVB #12, 1(RANGE) ; 
04 Al DD 000 9 1$: PUSHL 4(R1) : 0718 
000000006 90 gi F 0 CALLS #1, EDT$$TST_NONCNTGRNG ; 
F 0 € A BLBS RO. 4 ; 
000000006 01 00 0002D MOVL #1 EDT $$G_RNG_ FR TLN : 0730 
67 p 0 MOVL.  EDTSSA CUR “BUF - : 0721 
000000006 00 69 7 MOVC3) #14, (R ~pUréss _RNG_ORIGPOS : 
0 68 D F MOVL  EDT$SA "exe _CURCMD> RO™ : 0722 
04 Ad OD 42 PUSHL  4(RO) ; 
000000006 90 1 FB 4 CALLS #1, EDTSSRNG_REPOS : 
D 0 € 4C BLBC ~—E_s&RO,. 4S ; 
6 D4 0004F CLRL = NLINES : 0725. 


16 

corey eu EDTSLFILL - FILL Line-mode command 1h-5ep-19 4 90:49:30 VAX-11 Bliss-32 V4.0-74 Page 5 
v04 EDTSSFILL_CMD = FILL Line-mode command 14-Sep-1984 12:23:34 DISKSVMSMASTER: CEDT.SRCILFILL.BLI;1 (3) 
7E D4 00051 28 CLRL -(SP) 3; 0727 

000000006 00 f 4 MEE CALLS #1, EDTSSNXT_LNRNG : 

14 0 3 OOSA BLBC s 

20 900000006 0 0050 MOVAB €Df$$Z_E0B_LN, RO : 

0000006 D1 00064 CMPL DT$$A_wWk_CN, RO : 

4 1 6B BEQL $ $ 
09 6D INCL Ines ; 0728 

EO 1 F BRB 2 3 
g 1 3$: MOVL EDTSSA cue BUF, RO 3; 0730 

60 900000006 F 4 MOVC3 #14, EDT$$Z7_RNG_SAVPOS, (RO) : 
G6 FB 7 CALLS #0, EDTSS$SRD_CUREN : 0731 
6 DD PUSHL LI : 0732 

000000006 00 1 FB CALLS #1, EDTSSFILL_TXT : 
04 0008C 4$: RET : 0735 


; Routine Size: 141 bytes, Routine Base: _EDTSCODE + 0000 


166 0736 1 
167 0737 1 !<BLF/PAGE> 


16 
EDTSLFILL EDTSLFILL = FILL Line-mode command 18-Se -1984 00:49:50 VAX-11 Bliss-32 V4.0-74 Page 6 
TOL bod EDTSSFILL_CMD - FILL Line-mode command 1e-Sep-1 Hn 99:53:32 DISKSVMSMASTER: CEDT.SRCILFILL.BLI;1 . (4) 
; 169 7 1 END ! of module EDTSLFILL 
1 BY 
s 71 740 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 141 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
Re eae elias See S a apie hb ee Symbols «cceoeoe Pages Processing 
: File Total Loaded Percent Mapped ime 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 92 24 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LFILL/OBJ=OBUJ$:LFILL MSRC$:LFILL.BLI/UPDATE=(ENHS:LF ILL) 
3; Size: 141 code + 0 data bytes 
3; Run Time: 0:11.9 
; Elapsed Time: 00: 13. 0 
3 Lines/CPU Min: 3718 
3 Lonence/sPu-tias 11693 
3 pene Used: 92 pages 
3; Compilation Complete 
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